#!/bin/env sh

for file in /proc/*/status ; do
    awk '/^Name:/ {name=$0; sub(/Name:\s+/, "", name)} /^VmSwap:/ {swap=$2} END {if (swap > 0) print swap, name}' "$file"
done | sort -k 1 -n -r | head -n 30